home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / System / BoingBag1 / Contributions / Workbench / Prefs / T.H.E. / REXX / CloseSubWin.rexx < prev    next >
OS/2 REXX Batch file  |  1999-11-06  |  409b  |  21 lines
  1. /*
  2.    $VER: CloseSubWindows.rexx 1.1 (6.11.99) Copyright (c) Nils Görs.
  3.  
  4.   Closes all sub windows opened from the active window.
  5. */
  6.  
  7. options results
  8.  
  9. address WORKBENCH
  10.  
  11. GETATTR OBJECT WINDOWS.ACTIVE
  12. activeWin = result
  13.  
  14. GETATTR WINDOWS STEM WINDOW
  15.  
  16. do i = 0 to WINDOW.count-1
  17.   IF WINDOW.i ~= "root" THEN
  18.     IF WINDOW.i ~= activeWin THEN 
  19.         IF ABBREV(WINDOW.i,activeWin) THEN WINDOW '"'||WINDOW.i||'"' CLOSE
  20. END
  21.